Class Modul eklentisi oluşturmak

[hsayar]

Private Sub Worksheet_Activate()
'Sub KorumaKOntrol()
Dim AktSf As Worksheet
Set AktSf = ActiveSheet
'MsgBox AktSf.Name
    If AktSf.ProtectContents Then
        MsgBox AktSf.Name & " Korumaladır"
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = False
        Exit Sub
    Else
        MsgBox AktSf.Name & " Korumasızdır"
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = True
    End If
End Sub

Yukarıdaki kodların Tüm kitaplarda çalışması için clasmodule ve diğer modullere eklemem gereken kodlar nedir?

http://www.excel.web.tr/showthread.php?t=27341&highlight=class+module+eklenti

linki inceledim ama ilkkez class module yazacağım için balığı ile rica ediyorum.

 

[Levent Menteşoğlu]

Class Module sayfasına

Public WithEvents eklenti As Application
 
Private Sub eklenti_SheetActivate(ByVal Sh As Object)
Dim AktSf As Worksheet
Set AktSf = ActiveSheet
    If AktSf.ProtectContents Then
        MsgBox AktSf.Name & " Korumaladır"
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = False
        Exit Sub
    Else
        MsgBox AktSf.Name & " Korumasızdır"
      Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = True
    End If
End Sub

Thisworkbook sayfasına

Dim eklenti() As New Class1
 
Private Sub Workbook_Open()
ReDim Preserve eklenti(1)
Set eklenti(1).eklenti = Excel.Application
End Sub

Kodun çalışması için dosyanın kapatılıp tekrar açılması gerekir.

 

[hsayar]

hocam teşekkür ederim

        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = True

korumalı olup olmadığını söylüyor ama aynı xla kitabındaki commandbarı enabled yapmıyor.

 

[hsayar]

 Public WithEvents eklenti As Application
 
Private Sub eklenti_SheetActivate(ByVal Sh As Object)
Dim AktSf As Worksheet
Set AktSf = ActiveSheet
    If AktSf.ProtectContents Then
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = False
        Application.CommandBars("Cell").Controls("Satır Y&üksekliği Cm").Enabled = False
        Application.CommandBars("Column").Controls("Sütun &Genişliği Cm").Enabled = False
        Application.CommandBars("Row").Controls("Satır Y&üksekliği Cm").Enabled = False
    Else
        Application.CommandBars("Cell").Controls("Sütun &Genişliği Cm").Enabled = True
        Application.CommandBars("Cell").Controls("Satır Y&üksekliği Cm").Enabled = True
        Application.CommandBars("Column").Controls("Sütun &Genişliği Cm").Enabled = True
        Application.CommandBars("Row").Controls("Satır Y&üksekliği Cm").Enabled = True
    End If
End Sub

 Dim eklenti() As New Class1
 
Private Sub Workbook_Open()
ReDim Preserve eklenti(1)
Set eklenti(1).eklenti = Excel.Application

    Call SagTusEkle
    Call WMB_Ekle
End Sub

çok güzel oldu hocam teşekkür ederim bu konuda bir kaç sorum daha olabilir ama yarın kafam düşüyor artık.

 

[hsayar]

hocam yazdığım kodlar sayfa korumalı ise satırcm, sütun cm komutlarını pasifize ediyor. Ancak aktif sayfada koruma koyunca tekrar active edilinceye kadar işe yaramıyor bunun kontrolü varmı acaba