aynı butona farklı işlemler yaptırma

[onurdogan]

Bir butonu olacak ve bastığımda sayfa kilitli değilse sayfayı kilitleyecek, kilitliyse açacak. Yardımcı olursanı sevinirim.

 

[Emir Hüseyin Çoban]

Merhaba, ekteki örneği inceleyiniz.

 

[Seyit Tiken]

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Sayfa1.Unprotect
Me.ToggleButton1.Caption = "Kilitsiz"
Else
Sayfa1.Protect
Me.ToggleButton1.Caption = "Kilitli"
End If
End Sub

Şeklinde deneyiniz.

 

[onurdogan]

Teşkkür ederim arkadaşlar işimi gördü her iki kodda

 

[onurdogan]

Teşekkür ederim arkadaşlar iki kodda işime yaradı