vba activeren wanneer de actieve sheet beveiligd is.

Status
Niet open voor verdere reacties.

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik ben op zoek naar een code die geactiveerd wordt wanneer het actieve werkblad beveiligd is en een andere code wanneer deze niet beveiligd is. De code doet in beide gevallen niets

voorbeeld
Code:
If ActiveSheet = Protect Then
     Sheets("data").Range("J2") = ONWAAR
    Else
     Sheets("data").Range("J2") = WAAR
End If

Weet iemand wat ik hier fout doe?

Alvast hartelijk dank.

Robert
 
Code:
Sheets("data").Range("J2") = ActiveSheet.ProtectContents

Bij jouw stukje gebeurt niets omdat je Option Explicit niet aan hebt staan.
Anders zou je er een foutmelding op krijgen.
 
Laatst bewerkt:
Het was even het e.e.a. uitproberen, maar uiteindelijk ben ik met jouw tweede voorbeeld eruit gekomen...heel hartelijk dank..
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan