• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Verwijderen tabblad verhinderen

Status
Niet open voor verdere reacties.

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Gebruikers kunnen via hun password inloggen.
Maar dan kunnen ze in het bestand nog altijd 'ongewenst' tab-bladen toevoegen en/of verwijderen.
Alleen voor de beheerder(password 123) moet dit mogelijk blijven.
Met onderstaande code wordt verhinderd dat er tab-bladen kunnen ingevoegd worden.
Code:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
 If InputBox("Geef wachtwoord") <> "123" Then Sh.Delete
Application.DisplayAlerts = True
End Sub
Met welke code kan er verhinderd worden, dat er tab-bladen worden verwijderd?
Behalve natuurlijk voor de beheerder(password 123) die dit wel moet mogen?
Grtn wieter
 
Daar zit een knop voor in het lint: "Protect Workbook" onder de Tab "Review"
 
Waarom zijn ze dan überhaupt zichtbaar ?
 
@Eric, Ja ik ken die mogelijkheid.
Maar de structuur van het werkboek mag niet geblokkeerd worden in functie van andere VBA-codes.
Vandaar de aparte code om invoegen van bladen te voorkomen.
Bedankt voor de reactie.
@SNB, Na het inloggen zijn alleen de bladen van de betreffend gebruiker zichtbaar.
Als die zomaar bladen kan bijvoegen of verwijderen, klopt de code voor de geprivatiseerde bladen niet meer.
Dank voor de aandacht.

Ter verduidelijking in bijlage het bestand waarover het gaat.
MAAR dit bestand zit vol wachtwoorden, dus niet erg handig voor eventuele helpers.
ALLE wachtwoorden zijn: 123
 

Bijlagen

  • Inlog bepaalde bladen code123.xlsm
    65,7 KB · Weergaven: 25
Als je voor de gebruikers een uitgekiend userform maakt kun je ervoor zorgen dat geen enkele gebruiker een werkblad kan verwijderen.
Dan zijn wachtwoorden ook volledig overbodig.
 
Laatst bewerkt:
Uiteindelijk heb ik toch gekozen voor het voorstel van Eric.
Dit ligt op mijn VBA-niveau.
Code:
ActiveWorkbook.Unprotect"123"
ActiveWorkbook.Protect "123", Structure:=True, Windows:=False
Bij alle andere codes die beïnvloedbaar zijn, heb ik telkens eerst een "Unprotect" ingevoegd.
En op het einde van de code telkens een "Protect" ingevoegd.
Bedankt Eric.
@SNB Een uitgekiende u-form, met mijn VBA-niveau????????
Toch bedankt voor uw aandacht SNB.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan