bonjour,
je verouille au futures utilisateurs la possibilite d enregistrer mais pour cela j ecris ds "thisworkboo" un evenement:
mais le teste du bouton du userform ne fonctionne pas , comment faire ? ou est l erreur?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) UserForm4.Show If UserForm4.TextBox1.Value = " password" And UserForm4.CommandButton1.value = true Then _ Cancel = False End Sub
car ce matin je vois rien!
merci
seulement
Partager