formule verbergen

[mtb]

Hai


Is er in vba een stukje code die bij opstart automatisch in een werkmap alle formule's beveiligd zodat ze niet overschreven kunnen worden en en direct ook alle formule's onzichtbaar maakt,

alvast bedankt voor het meedenken

 

[richard1970]

Hoi mtb,

In VBA zal het wel kunnen, maar weet je dat je zelf de cellen met formules kunt selecteren via Ctrl+G, Speciaal - Formules. Je kunt dan naar de celeigenschappen gaan van deze cellen (Ctrl+1), ga naar de tab beveiliging en vink het vierkantje Verborgen aan.
Vervolgens beveilig je het werkblad, en alle formules zijn onzichtbaar, maar de uitkomst blijft leesbaar voor de gebruiker.

Heb je hier wat aan?

Richard

 

[mtb]

Richard

Deze kende ik nog niet, bedankt,
Als ik doe wat jij zegt dan zijn de formule's wel verborgen, maar dan kan ik de formules nog wel bewerken cq verwijderen, en dat is niet de bedoeling

 

[richard1970]

Dat kun je oplossen door het vierkantje bij Geblokeerd af te vinken bij de celeigenschappen - tabblad Bescherming.
Dus Verborgen aanvinken, en geblokkeerd af vinken.

Richard

 

[mtb]

Richard,

Jouw oplossing doet wat ik bedoel, ik heb de handelingen opgenomen met de macro recorder , zodat ik elk blad makkelijk kan beveiligen, alleen.......
Ik heb hierbij ook opgenomen dat die om een wachtwoord moet vragen om het werkblad weer toegankelijk te maken en juist dat doet die niet en vind ik ook niet terug in de programmacode, enig idee,

hieronder de code

'
' blad_beveiligen Macro
' De macro is opgenomen op 4-5-2006 door .
'

'
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

 

[richard1970]

Beste mtb,

Met de amcrorecorder opnemen dat een bestand of werkblad beveligd moet worden werkt inderdad niet, maar is in VBA wel op te vangen:
Bijv.:
Sub Wachtwoord()
'==============================================================================
' Met deze sub wordt een wachtwoord gevraagd aan de gebruiker
' Het is ook mogelijk in de macro standaard een wachtwoord te zetten
' Deze macro beveiligt alle werkbladen in het bestand met hetzelfde wachtwoord.
' Met dank aan Martin Boerman van MMC
'==============================================================================

Dim Wachtwoord As String
' Wachtwoord = "helpmij"
Wachtwoord = InputBox("Vul hier het wachtwoord in")
Dim Werkblad As Worksheet
Dim v As Integer
For v = 1 To Worksheets.Count
Set Werkblad = Worksheets(v)
Werkblad.Protect Wachtwoord
Next v
End Sub

Deze macro inpassen bij jou levert op:
Sub mtb()
Dim Wachtwoord As String
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
Selection.Locked = True
Selection.FormulaHidden = True
Wachtwoord = InputBox("Vul hier het wachtwoord in")
ActiveSheet.Protect Wachtwoord

End Sub

De onderste optie beveiligt alleen het actieve werkblad.

Succes,

Richard

 

[mtb]

Richard

Jouw code werkt maar wel verkeerd om, met andere woorden hij vraagt om een wachtwoord als ik het blad wil beveiligen, en niet wanneer ik het wil deblokkeren

Hij moet dus om een wachtwoord vragen als ik het veld uit de beveiliging wil halen

Thanks so far

 

[richard1970]

maak van protect unprotect.

 

[mtb]

Richard,

bedankt voor de moeite, zet de vraag op opgelost