Excel Sayfalar Arası Şifreleme Macrosu

Merhaba,

Tek yapmamız gereken şifrelemek istediğiniz sayfaların her birine bu macroyu kopyalamaktır.

MACRO
Private Sub Worksheet_Activate() 'ActiveWindow.DisplayWorkbookTabs = False 'sayfa tablarını gizler Application.EnableCancelKey = xlErrorHandler 'esc tuşu devre dışı Application.DisplayAlerts = False 'hata mesajlarını gözardı et Dim sifre As String sifre = InputBox("Lütfen Şifreyi Giriniz," & Chr(13) & Chr(13) & "", "Merhaba") If sifre <> "123" Then 'şifre yanlışsa MsgBox "Hatalı şifre" Worksheets("ANA SAYFA").Select Exit Sub Else MsgBox ("Şifreyi Doğru Girdiniz") ActiveWindow.DisplayWorkbookTabs = True Worksheets("Sheet2").Select Application.DisplayAlerts = True End If End Sub