Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Blad beveiliging via macro  (gelezen 4087 keer)

0 leden en 1 gast bekijken dit topic.

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Blad beveiliging via macro
« Gepost op: 26 mei 2004, 21:22:43 »
Hoi,

Ik heb een werkblad met gegevens die opgehaald worden van andere bladen, en een knop om een rangschikking te maken.
Ik heb een opgenomen macro gemaakt om het sorteren automatisch te doen, maar het is de bedoeling dat dit blad volledig beveiligd word (op de knop na). Op een beveiligd blad krijg ik een foutmelding als ik wil rangschikken.

Ook heb ik  heb al geprobeerd om deze bladbeveiliging mee op te nemen in een opgenomen acro , maar dit wil niet zo goed lukken.

Iemand een ideetje?

groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Blad beveiliging via macro
« Reactie #1 Gepost op: 26 mei 2004, 22:57:13 »
Lijkt me een beetje logisch dat dit niet gaat als je het blad beveiligd.

Voor het rangschikken zou ik even de beveiliging afzetten, dan rangschikken en dan de beveiliging terug aan zetten.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:Blad beveiliging via macro
« Reactie #2 Gepost op: 27 mei 2004, 08:45:01 »
Hoi,

Voor het rangschikken zou ik even de beveiliging afzetten, dan rangschikken en dan de beveiliging terug aan zetten.

Wel, dit zou  de bedoeling moeten zijn om dit in de macro mee op te nemen. Deze lijst is voor een collega die niet veel kennis heeft van Excel (nog minder dan ik ;D) en om verrassingen te vermijden zou ik deze ook graag beveiligd hebben.

groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Blad beveiliging via macro
« Reactie #3 Gepost op: 27 mei 2004, 19:13:54 »
Aha zo met citaat lukt niet als je dit wil doen dmv een macro - kan je de macro eens even uploaden en beschrijven welke foutmelding je krijgt.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:Blad beveiliging via macro
« Reactie #4 Gepost op: 27 mei 2004, 23:04:33 »
Hoi,

alvast bedankt voor de assistentie. ;)

Ik heb al een gedeelte van de macro kunnen aanpassen zodat ik de beveiliging eraf kan halen, maar het terugbeveiligen met paswoord lukt niet. :'(
Ik krijg een syntaxisfout melding. (vermoedelijk op de password optie)
H
ierbij de macro:
ActiveSheet.Unprotect (abc)
    Range("A2:C92").Select
    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
        ActiveSheet.Protect Password:="abc" DrawingObjects:=True, Contents:=True, Scenarios:=True

groetjes
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline spyder

  • Ambassadeur
  • *****
  • Berichten: 5.265
  • PC probleem zit meestal tussen scherm en rugleun
Re:Blad beveiliging via macro
« Reactie #5 Gepost op: 28 mei 2004, 00:17:19 »
Hoi,

ActiveSheet.Protect Password:="abc" DrawingObjects:=True, Contents:=True, Scenarios:=True

Probleem opgelost! 8) 8) Na een beetje nadenken en piekeren ( en een heel klein beetje Google :P) heb ik de fout gevonden!

Password:="abc", DrawingObjects:=True,

Ik was de komma vergeten. :-[

alvast bedankt voor de reactie.
Windows 7 Ultimate Unknow NLD
Intel(R) Core(TM) i7 CPU         870  @ 2.93GHz 2934
P7P55D-E PRO
NVIDIA GeForce GTX 470 1280MB 1680 x 1050
HD 1 : INTEL SSDSA2M080G2GC (80GB)
HD 2 : ST31500341AS (1,5TB)
HD 3 : ST320006 41AS (2TB)
browser: Maxthon  mail:Thunderbird AV: Bitdefender
Scarlet user

Offline cladon

  • Volledig lid
  • **
  • Berichten: 246
  • Geslacht: Man
Re:Blad beveiliging via macro
« Reactie #6 Gepost op: 28 mei 2004, 00:46:38 »
Ja die stomme tekens geven soms hoofdbrekens omdat ze niet opvallen maar toch belangrijk zijn.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

 


www.combell.com