automatisch beveiligen
Tonny
is niet beveilgd wat ook zo moet blijven )
Weet iemand of het mogelijk is dit ene blad automatisch te beveiligen als je
het bestand afsluit.
Nu moet ik steeds via Extra- Beveiliging dit ene blad beveiligen voordat ik
het bestand sluit.
Ik wil dit graag in ��n keer kunnen doen.
Tonny
Bret Bernever
tonny....@home.nl says...
>
> Ik heb een excelbestand met drie tabbladen waarvan er ￜￜn beveiligd is.( map
> Weet iemand of het mogelijk is dit ene blad automatisch te beveiligen als je
> het bestand afsluit.
> Nu moet ik steeds via Extra- Beveiliging dit ene blad beveiligen voordat ik
> het bestand sluit.
>
> Tonny
Zoiets?
'--------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In ActiveWorkbook.Worksheets
If UCase(sh.Name) = "NAAMBLAD" Then
sh.Protect
ActiveWorkbook.Save
Else
'niks doen
End If
Next
End Sub
'--------------------------------------------------
Deze procedure moet je in het ThisWorkbook object plaatsen.
Tonny
Dit heb ik gedaan maar het werkt niet.
Ik krijg een foutmelding "deze eigenschap wordt niet ondersteund door dit
project "
Fout 438 tijdens uitvoering
Tonny
"Bret Bernever" <bretbe...@yahoo.com> schreef in bericht
news:MPG.259b3ac96...@news-europe.giganews.com...
> In article <dbd05$4b311226$541dc8b0$22...@cache4.tilbu1.nb.home.nl>,
> tonny....@home.nl says...
>>
>> Ik heb een excelbestand met drie tabbladen waarvan er ��n beveiligd
>> is.( map
>> is niet beveilgd wat ook zo moet blijven )
>> Weet iemand of het mogelijk is dit ene blad automatisch te beveiligen als
>> je
>> het bestand afsluit.
>> Nu moet ik steeds via Extra- Beveiliging dit ene blad beveiligen voordat
>> ik
>> het bestand sluit.
>> Ik wil dit graag in ��n keer kunnen doen.
Wigi
Deze code is wat korter/efficiënter:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets("NAAMBLAD").Protect
End Sub
Pas NAAMBLAD nog aan en geef evt. argumenten van de Protect methode op (o.a.
een paswoord).
--
<a
href="http://users.skynet.be/fa436118/wim/opdrachten.htm">http:/www.wimgielis.be</a>: Excel (VBA code + example files), sports and music.
"Tonny" wrote:
> Ik neem aan dat op de plaats van "Naamblad" de tabbladnaam moet komen staan.
> Dit heb ik gedaan maar het werkt niet.
> Ik krijg een foutmelding "deze eigenschap wordt niet ondersteund door dit
> project "
> Fout 438 tijdens uitvoering
>
> Tonny
> "Bret Bernever" <bretbe...@yahoo.com> schreef in bericht
> news:MPG.259b3ac96...@news-europe.giganews.com...
> > In article <dbd05$4b311226$541dc8b0$22...@cache4.tilbu1.nb.home.nl>,
> > tonny....@home.nl says...
> >>
> >> Ik heb een excelbestand met drie tabbladen waarvan er één beveiligd
> >> is.( map
> >> is niet beveilgd wat ook zo moet blijven )
> >> Weet iemand of het mogelijk is dit ene blad automatisch te beveiligen als
> >> je
> >> het bestand afsluit.
> >> Nu moet ik steeds via Extra- Beveiliging dit ene blad beveiligen voordat
> >> ik
> >> het bestand sluit.
> >> Ik wil dit graag in één keer kunnen doen.
> >>
> >> Tonny
> >
> >
> > Zoiets?
> > '--------------------------------------------------
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > For Each sh In ActiveWorkbook.Worksheets
> > If UCase(sh.Name) = "NAAMBLAD" Then
> > sh.Protect
> > ActiveWorkbook.Save
> > Else
> > 'niks doen
> > End If
> > Next
> > End Sub
> > '--------------------------------------------------
> >
> > Deze procedure moet je in het ThisWorkbook object plaatsen.
> >
>
>
> .
>
Bret Bernever
tonny....@home.nl says...
> Ik neem aan dat op de plaats van "Naamblad" de tabbladnaam moet komen
staan.
Klopt!
> Dit heb ik gedaan maar het werkt niet.
> Ik krijg een foutmelding "deze eigenschap wordt niet ondersteund door dit
> project "
> Fout 438 tijdens uitvoering
Altijd interessant zo'n foutmelding. Is dat blad dat je wil beveiligen
een gewoon werkblad?
Zet eens een onderbrekingspunt, dmv (F9) op de regel:
For Each sh In ActiveWorkbook.Worksheets en sluit de map af zodat de
macro wordt getriggerd. Nu kun je met behulp van F8 er stapsgewijs
doorheen. Op welke regel krijg je die foutmelding?
Tonny
Ik kreeg de foutmelding eerst in de regel waar naamblad in staat.
Nu krijg ik echter geen foutmelding meer maar de macro doet ook niets.
Ik weet niet zeker of de procedure op de goede plaats staat.
Als ik this workbook dubbelklik krijg ik de procedure van jouw te zien en
ook nog twee macro's uit het werkblad.
Als ik echter op de werkbalk van het blad run macro aanklik zie ik alleen
mijn eigen macro's uit het werkblad maar niet jouw procedure.
Moet dat zo of niet ??
Tonny
"Bret Bernever" <bretbe...@yahoo.com> schreef in bericht
news:MPG.259b5e03d...@news-europe.giganews.com...
Bret Bernever
tonny....@home.nl says...
> Ik weet niet zeker of de procedure op de goede plaats staat.
> Als ik this workbook dubbelklik krijg ik de procedure van jouw te zien en
> ook nog twee macro's uit het werkblad.
Klik op de onderstaande link voor een screenshot. In het screenshot zie
je links een lijstje van je werkbladen. Dubbelklik op ThisWorkbook. Daar
moet je code staan.
http://bever.be.funpic.de/voorbeeld.png
> Als ik echter op de werkbalk van het blad run macro aanklik zie ik >
> alleen mijn eigen macro's uit het werkblad maar niet jouw procedure.
> Moet dat zo of niet ??
Dat komt omdat er Private voor staat. Dan zie je die Macro niet in je
lijstje.
Ik pak even de code van wigi, die is korter:
'--------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets("Blad3").Protect
MsgBox "Gelukt"
End Sub
'--------------------------------------------
Zet bovenstaande code eens in je ThisWorkbook module. Met de regel:
MsgBox "Gelukt"
kun je controleren of je macro gestart wordt als je de map afsluit. Je
krijgt dan gewoon een venster te zien. Zie je dat venster NIET
verschijnen dan klopt er iets niet.
Werk je toevallig met Excel 2000? Daar zit namelijk een bug in waardoor
die Workbook_BeforeClose niet werkt.
Tonny
Het werkt nu zoals ik graag wilde.
Tonny
"Bret Bernever" <bretbe...@yahoo.com> schreef in bericht
news:MPG.259eed4af...@news-europe.giganews.com...