NIGRA
Altın Üye
- Katılım
- 12 Şubat 2021
- Mesajlar
- 111
- Excel Vers. ve Dili
- Excel2010
- Altın Üyelik Bitiş Tarihi
- 13-02-2026
Çalışma kitabını koru ve paylaş seçeceği ile şifreleme yaptığımda dosyayı kaydedip kapatıyorum. Tekrar açtığımda;
bu makronun yazılı olduğu grafik isimli sayfaya her girdiğimde;
bu uyarıyı veriyor.
Amacım, bu şifreleme ile makro kodlarının farklı bir kişi tarafından görünmesini engellemek. Çözüm yada farklı bir yol önerisi var mıdır?
Kod:
Private Sub Worksheet_Activate()
Dim pvt As PivotTable
Application.ScreenUpdating = False
Sheets("Grafik").Unprotect Password:=1923
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next pvt
Sheets("Grafik").Protect Password:=1923, AllowUsingPivotTables:=True
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_Deactivate()
Application.OnKey "{del}"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then
Application.OnKey "{del}", ""
Else
Application.OnKey "{del}"
End If
End Sub
bu uyarıyı veriyor.
Amacım, bu şifreleme ile makro kodlarının farklı bir kişi tarafından görünmesini engellemek. Çözüm yada farklı bir yol önerisi var mıdır?
Ekli dosyalar
-
1.8 MB Görüntüleme: 3