ThisWorkbook'd a Yazılı Makroyu Çalıştırmak

[htsumer]

ThisWorkbook'da aşağıdaki makro buylunmaktadır.Bunu başka bir UserFormda bir buton ile nasıl çalıştırabilriz.

Private Sub UnhideSheets()
    Dim sht As Object
    Application.ScreenUpdating = False
    For Each sht In ThisWorkbook.Sheets
        sht.Visible = xlSheetVisible
    Next sht
    ThisWorkbook.Sheets("Macros Disabled").Visible = xlSheetVeryHidden
    Application.ScreenUpdating = True
End Sub

 

[ExcelF1]

Kodu modül olarak/da yazıp, botuna modülün ismini yazın.

 

[htsumer]

Kodu modül olarak/da yazıp, botuna modülün ismini yazın.

Çok güzel mantık ve cevap..Tamamdır, teşekkürler

 

[Korhan Ayhan]

Merhaba,

Kodun ismindeki "Private" ifadesini silerseniz istediğiniz yerden kodu çağırabilirsiniz.

 

[htsumer]

Teşekkür ederim Korhan bey

 

[halit3]

Alternatif olarak kod:
ThisWorkbook bölümüne

Private Sub UnhideSheets()
Dim sht As Object
Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Sheets
sht.Visible = xlSheetVisible
Next sht
ThisWorkbook.Sheets("Macros Disabled").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

Sub kodcalistir()
UnhideSheets
End Sub

Userforma

Private Sub CommandButton1_Click()
ThisWorkbook.kodcalistir
End Sub