Automatisch wachtwoord genereren in Makro

[FBO]

Hallo,

Ik gebruik een makro, waarin een beveiligd werkblad wordt geopend middels het ingeven van het wachtwoord, en na de actie het werkblad (zonder wachtwoord opnieuw in te geven) weer wordt beveiligd.

Aangezien ik nu aan de hele toko het wachtwoord moet vrijgeven op deze manier: Hoe krijg ik de makro zover dat het wachtwoord automatisch wordt gegenereerd, bijvoorbeeld door sterretjes, zodat de gebruiker enkel maar hoeft te klikken om verder te kunnen?

 

[Cobbe]

Kan dit u verderhelpen? Maar ik snap de zin hier niet van.
De gebruiker moet het ww hebben anders kan ie niet verder. Wil je het zonder paswoord ingeven doen werken, heeft de hele beveiliging geen zin.

Het zou kunnen dat ik het mis heb.

Cobbe

 

[FBO]

Beste Cobbe,

Ik heb de Makro als volgt ingericht:
Sub NieuweRijInvoegen()

Dim lStatus As Boolean

lStatus = ActiveSheet.ProtectContents
If lStatus Then
If MsgBox("Het werkblad is beschermd! Doorgaan?", 1) = vbCancel Then Exit Sub
ActiveSheet.Unprotect Password = "123"
End If

With ActiveCell
.EntireRow.Select
.EntireRow.Insert
.EntireRow.Copy
End With

With Selection
.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Cells(1, 3).Select
End With

Application.CutCopyMode = False

If lStatus Then Beveiligenblad

End Sub

Dat vetgedrukte gedeelte, daar ben ik nu mee aan het spelen om het wachtwoord automatisch te genereren, maar het wachtwoord wordt niet herkend.
Zonder dat vetgedrukte vraagt de makro om een wachtwoord, die ik dus eigenlijk niet vrij wil geven.

Naast de vraag van automatisch gegenereerd wachtwoord: hoe kan ik het blad weer laten beveiligen met de opties "alle gebruikers van dit WB mogen, etc, etc, want nu sluit hij af en verlies ik de ingestelde opties.

Dank voor de info alvast!!

FBO

 

[Cobbe]

ActiveSheet.Unprotect Password[COLOR="red"][B]:[/B][/COLOR] = "123"

Zo dan? Ik snap niet echt wat je eigenlijk wil.
Zou je eens duidelijk uit kunnen leggen waten wanneer er moet gebeuren.
Post anders eens een bestand waain je aangeeft wat er moet geschieden.

Cobbe

 

[FBO]

Dank u, dank u, dank u.

Het werkt.

Wat ik wil, is dat in een beveiligd werkblad men toch regels kan invoegen, die gelijk alle formules meekopieerd. Ik had een makro waarin het paswoord nog ingevuld moest worden, maar dan geef ik ook mijn werkbladbeveiliging bloot, waardoor gemakkelijk formules aangepast kunnen worden.

Nu met jouw oplossing kunnen ze i.i.g. een regel invoegen zonder dat ik het paswoord vrij hoef te geven. De makro is namelijk ook beveiligd.


Heb je voor mij nog een antwoord op de extra rechten die ik kwijtraak met deze makro. Hiermee bedoel ik de rechten die ik heb toebedeeld bij de werkbladbeveiliging dat de gebruikers toch de kolommen en rijen kunnen opmaken, de celeigenschappen kunnen wijzigen en een filter kunnen hanteren? Deze opties verdwijnen wanneer ik de Makro heb aangeroepen, want dan beveiligd deze het werkblad zonder de extra opties.

Hoor (nogmaals) graag van je.

Ook nogmaals bvedankt voor de eerste oplossing! TOP!!

 

[Cobbe]

Dat moet je verwerken in je macro 'Beveiligen'
Post deze eens en ik of iemand anders zal daar eens naar kijken.

Cobbe

 

[FBO]

Hoi Cobbe,

Grote kans dat het hier in zit.
Het is maar een sumiere versie:

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
Blad.Protect Paswoord
Next
End Sub

Hoor graag van je, of van wie dan ook. Het is de laatste stap voordat ik mijn bestand openbaar en werkbaar kan maken.

Dank alvast voor de tijd en moeite!
gr
FBO

 

[Cobbe]

Wie weet is volgende al voldoende?

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
Blad.EnableAutoFilter = True
Blad.Protect Password:=Paswoord, UserInterfaceOnly:=True
Next
End Sub

En anders moeten die bijkomende rechten nog toegevoegd worden vóór Protect. weet het niet zeker, want al die regeltjes zijn soms verwarrend.

Succes anders, Cobbe

 

[FBO]

Beste Cobbe,
Hoe kom je aan je wijsheid, super gewoon!
Kan nu ook de Filters gebruiken, zelfs na toevoegen of verwijderen van regels.
Ik ben zeer blij met je!

Als ik nu andere rechten/opties toe wil voegen, net zoals de filters, waar vind ik de engelse termen van bijvoorbeeld: Celeigenschappen, Kolommen bewerken, rijen bewerken??

groeten, en nogmaals SUPERRRR Bedankt
FBO

 

[Warme bakkertje]

Kijk in de VBA-Help eens bij Protect, daar kan je zien wat je allemaal kan instellen.

 

[FBO]

Dank Rudi, ben weer een stap verder.....

Als ik hier meer van wil leren, moet ik dan een curses Excel doen, of eem cursus VBA?

Ik heb nu de volgende Macro, maar deze werkt niet: Wat doe ik fout?

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
Blad.EnableAutoFilter = True
Blad.EnableFormattingCells = True
Blad.EnableFormattingColums = True
Blad.Protect Password:=Paswoord, UserInterfaceOnly:=True
Next
End Sub

Iedereen alvast bedankt voor de reactie...

FBO

 

[Cobbe]

Mijn gevoel(!) zegt dat de volgorde anders moet:

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
Blad.EnableAutoFilter = True
Blad.Protect Password:=Paswoord, UserInterfaceOnly:=True
Blad.EnableFormattingCells = True
Blad.EnableFormattingColums = True
Next
End Sub

Succes, Cobbe

 

[FBO]

Hé Cobbe, goedemorgen,

Als ik je macro gebruik krijg ik de volgende foutmelding:

*Fout 438 tijdens uitvoering
Deze eigenschap of methode wordt niet ondersteund door dit object*

Het verbaast mij ook dat in jouw macro de filtering voor het password komet en de rest erna?!

 

[Warme bakkertje]

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
    Blad.Protect Password:=Paswoord, UserInterfaceOnly:=True, AllowFormattingCells:=True, _
                    AllowFormattingColumns:=True, AllowFiltering:=True
Next
End Sub

 

[Cobbe]

Ik was ook al verbaasd.
Toch zou deze het moeten doen:

Sub Beveiligenblad()
Const Paswoord = "123"
Dim Blad
For Each Blad In ActiveWorkbook.Sheets
Blad.EnableAutoFilter = True
Blad.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingRows:=True
Blad.Protect Password:=Paswoord, UserInterfaceOnly:=True
Next
End Sub

Succes, Cobbe

 

[FBO]

Heren, allebei mijn dank.
Ik denk dat mijn bestand nu compleet is.
Ik laat 'm nog even testen op fouten door de gebruikers, en zal bij akkoord de vraag sluiten.

Jullie zijn TOP!!!

 

[Warme bakkertje]

Markeer je de vraag dan nog even als opgelost.

 

[FBO]

Nogmaals iedereen bedankt voor de oplossing.
Hier op het werk zijn ze allen tevreden met de oplossing

gre