Trap regnearket Opphev hendelsen i Excel

stemmer
2

Jeg har en beskyttet Excel regneark, uten passord. Det jeg ønsker å gjøre er å felle tilfelle at en bruker opphever beskyttelse regnearket, slik at jeg kan generere en melding (og maser 'em!). Jeg kan setup hendelsen sjekke for programmet, for når nye arbeidsbøker åpnes, etc., men ikke for Opphev.
Er det noen som har en idé?

Publisert på 28/10/2008 klokken 19:14
kilden bruker
På andre språk...                            


2 svar

stemmer
1

Det er mulig å endre menyen ved hjelp Verktøy-> Tilpass. Beskytt / Opphev kan settes til å kjøre en makro, for eksempel:

Sub UnprotectTrap()
If ActiveSheet.ProtectContents = True Then
    MsgBox "Tut,tut!"
    ActiveSheet.Unprotect
Else
    ActiveSheet.Protect

End If
End Sub
Svarte 28/10/2008 kl. 20:00
kilden bruker

stemmer
0

Det er ingen måte å felle brukeren åpning av arket, men du kan advare dem hvis de lagrer arbeidsboken uten reprotecting arket (e).

I arbeidsbok modul, plasserer denne koden, eller noe lignende

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If Sheets("MyProtectedSheet").ProtectContents = False Then
    MsgBox "The sheet 'MyProtectedSheet' should not be left unprotected. I will protect it before saving", vbInformation
    Sheets("MyProtectedSheet").Protect
  End If
End Sub
Svarte 28/10/2008 kl. 20:35
kilden bruker

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more