- Katılım
- 6 Eylül 2007
- Mesajlar
- 657
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Arkadaşlar;vba şifresinin kırma programı ile değişmesi neticesinde devreye girmesini istediğim aşağıdaki kod'u yazdım ama çalışmıyor..
bu konuda yardımcı olurmusunuz..
kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ThisWorkbook.VBProject.Protection <> 123 Then
Run "Module1.sayfasil"
End If
End Sub
iyi günler..
bu konuda yardımcı olurmusunuz..kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ThisWorkbook.VBProject.Protection <> 123 Then
Run "Module1.sayfasil"
End If
End Sub
iyi günler..