beveiligdblad

[bikkel9]

even een vraag
ik heb een bestand waarvan een blad beveiligd is met een wachtwoord
als ik het bestand opnieuw open komt er een box voor met [
B]beveiliging blad opheffen[/B]?
met anuleren kan je het wel weer weg krijgen
maar er moeten andre mensen mee werken en dan is het lastig
als ik het blad beveilig zonder wachtwoord komt het probleem niet
gebruik excel 2007 maar het zelfde gebeurd in excel 2003

alvast bedankt

 

[leofact]

Dat is niet gebruikelijk.
Normaal is wel dat gebruikers een waarschuwing krijgen wannneer zij een beveiligde cel willen gebruiken.
Staat er nog meer bij de melding?
Wordt er gebruik gemaakt van macro's?

Een (gedepersonaliseerd) voorbeeld bestandje zou mogelijk helpen om te kijke wat er aan de hand is.

mvg leo

 

[bikkel9]

Hoi leo

dacht al dat het niet klopte
kan helaas bestand niet sturen
zitten bedrijfs gevoelige info in
er zitten wel macro's in
zal kijken of het met een ander bestand ook gebeurd dan kan ik die
erbij zetten

 

[bikkel9]

ik denk dat het probleem in deze macro zit

Sub Knop15_BijKlikken()
'
' Knop15_BijKlikken Macro

'Private Sub Workbook_Open()
  With Sheets("Blad1")
    .Protect UserInterfaceOnly:=True
    .EnableAutoFilter = True
  End With

    Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
End Sub

 

[leofact]

Als ik het goed begrijp gebeurt het direct bij het openen van he bestand.
In dat geval gaat het hws onm de event macro
Private Sub Workbook_Open()

Of mogelijk Private Sub Worksheet_Activate()

daar moet iets in te vinden zijn.

 

[bikkel9]

in de map microsoft excel objecten
bij thisworkbook staat deze macro

Private Sub Workbook_Open()
  With Sheets("Blad1")
    .Protect UserInterfaceOnly:=True
    .EnableAutoFilter = True
  End With
End Sub

als ik die weg haal is het probleem van de beveiliging weg
maar dan werken er een paar andere macro's niet
zitten verwijzingen in naar autofilter en die werkt niet als het blad beveiligd is?

 

[Cobbe]

Is de naam van uw werkblad wel correct (Blad1):?

With Sheets("Blad1")

Cobbe

 

[leofact]

dat ligt niet aan deze macro, maar aan de beveiliging

Je lost het probleem op door de beveiliging eraf te halen en dan weer erop te zetten en een vinkje te zetten bij autofilter gebruiken (wat naar benden scrollen in het lijstje)
Daarna ben je de melding bij het opeenen waarschijnlijk kwijt.
Dat kan alleen in excel 2003 of hoger (geen probleem dus)

 

[bikkel9]

klopt als ik bij de beveiliging het vinkje aanzet doen bijna alle macro's het alleen de macro om af te drukken geeft nog aan dat er een beveiliging op zit

Sub print_reggefiber()
'
' print_reggefiber Macro
' De macro is .
'

'
    Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    Selection.AutoFilter Field:=1
    Range("B10").Select
End Sub

volgens visualbasic zou het probleem in de eerste zin zitten dus ik denk de autofilter

 

[leofact]

Inderdaad ook hier lijkt me autofilter de boosdoener.
Alle werkbladen waar dit op van toepassing kan zijn, moeten op eerder beschreven manier beveiligd.

 

[bikkel9]

bij de andere macro's werkte het aanvinken van autofilter
alleen deze macro blijft vragen om de bescherming er af te halen

 

[leofact]

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Alle selected sheets zijn zo beveiligd?
Wordt er mogelijk een sheet aangemaakt voor het printen?

Als dat allemaal niet het geval zit het misschien in printout Copies
Dat weet ik eerlijk gezegd niet.
Misschien bereik je wat met scenario's aanvinken,maar daar raad ik maar naar.
Misschien weet iemand anders?

Tot die tijd kun je misschien van d melding afkomen door aan het begin van de routine de beveiliing er tijdelijk af te halen en daarna er weer op te zetten.

eraf:

ActiveSheet.Unprotect ("wachtwoord")

erop:

ActiveSheet.Protect ("wachtwoord") DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True

Ik zie nu trouwens dat in de

Private Sub Workbook_Open()
With Sheets("Blad1")
.Protect UserInterfaceOnly:=True

geen wachtwoord staat. Blijkbaar blijft het wachtwoord van de ingestelde beveiliging gelden. Zelf zet ik het wachtwoord er altijd wel in.

 

[bikkel9]

oke ga het vanavond even uit proberen
helaas overdag geen tijd
als het niet lukt reageer ik vanavond wel weer
alvast bedankt voor de moeite en tijd

 

[bikkel9]

krijg een fout melding bij het er weer opzetten van het wachtwoord

ActiveSheet.Protect ("wachtwoord") DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

excel verwacht achter wachtwoord instructie einde?

 

[Wigi]

Druk op F1 en zoek even op hoe de syntax moet zijn.

 

[leofact]

sorry, komma vergeten.
Die haakjes zijn trouwens ook overbodig.

 

[bikkel9]

hij werkt nu perfekt bedankt voor de hulp

groeten

Bikkel9:thumb::thumb::thumb: