macro’s in Excel werkend ondanks beveiliging

beveiliging VBA

Als je macro’s gebruikt is het belangrijk om een wachtwoord te zetten op de VBA van je bestand, anders kunnen gebruikers hier het wachtwoord van de beveiliging van je bestand lezen.

  • Alt-F11 om VBA te openen
  • in het menu: Extra
  • Eigenschappen van VBAproject
  • Beveiliging
  • project vergrendelen voor weergave aanvinken
  • 2x het wachtwoord voor VBA invoeren

macro’s werkend ondanks beveiliging werkblad

Als je wilt dat macro’s werken terwijl het werkblad beveiligd is, dan moet je onderstaande tekst invoegen in ThisWorkbook.
Op de plaats van de … moet je het wachtwoord zetten.

  • Alt-F11 om VBA te openen
  • klik op de naam van je bestand
  • klik op ThisWorkbook
  • plak onderstaande tekst in het venster Programmacode
Private Sub Workbook_Open()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    wSheet.Protect Password:="...", UserInterFaceOnly:=True
Next wSheet

End Sub

bestand met verschillende wachtwoorden per werkblad

Heb je een bestand met verschillende wachtwoorden per werkblad, dan moet je per werkblad een regel toevoegen, zoals hieronder.

Private Sub Workbook_Open()
    Sheets("naam van het werkblad").Protect Password:="...", UserInterFaceOnly:=True
    Sheets("naam van het werkblad").Protect Password:="...", UserInterFaceOnly:=True
    ...
    ...
End Sub

Groeperen en Degroeperen werkend ondanks beveiliging

Als je wilt dat Groeperen en Degroeperen werkt terwijl het werkblad beveiligd is, dan moet je de regel || wSheet.EnableOutlining = True || toevoegen (zoals hieronder).

Private Sub Workbook_Open()
Dim wSheet As Worksheet

For Each wSheet In Worksheets
    wSheet.Protect Password:="...", UserInterFaceOnly:=True
    wSheet.EnableOutlining = True
Next wSheet

End Sub

zoek en vervang in Word alleen voor de opmaak

Zoek en Vervang is heel makkelijk als je een bepaald(e) woord(groep) overal in je bestand op dezelfde manier wilt tonen. Bijvoorbeeld met hoofdletters, of juist niet, cursief, of juist niet.


Alleen hoofdletters/kleine letters moeten identiek zijn
1 kies Ctrl-H (zoek en vervang)
2 zet de cursor in het vak Zoeken naar: en typ het woord of de woordgroep die je wilt vervangen, bv. kerstmis
3 klik de button Meer>>
4 zet een vinkje bij Identieke hoofdletters/kleine letters
5 zet de cursor in het vak Vervangen door: en typ nogmaals het woord of de woordgroep die je wilt vervangen, nu met de juiste hoofdletters/kleine letters, bv. Kerstmis
6 klik op de button Vervangen

Als je het woord in de tekst ook op een andere manier hebt gebruikt, bv. KERSTMIS, dan moet je deze actie nogmaals uitvoeren, nu voor deze vervanging

 

De opmaak van een woord moet aangepast worden, bv. van standaard naar cursief
1 kies Ctrl-H (zoek en vervang)
2 zet de cursor in het vak Zoeken naar: en typ het woord of de woordgroep die je wilt vervangen
3 klik de button Meer>>
4 klik de button Opmaak, kies voor Lettertype en kies het lettertype dat je wilt zoeken (in dit geval standaard)
5 zet de cursor in het vak Vervangen door: en typ nogmaals het woord of de woordgroep die je wilt vervangen
6 klik de button Opmaak, kies bv. voor Lettertype en kies het lettertype waardoor je dat je wilt vervangen (in dit geval cursief)

uit Excel via CSV bestand agenda importeren in Google agenda

opmaak en uiterlijk van het Excelbestand

Bovenin je Excelbestand kun je de volgende koppen hebben (in het ENGELS dus):
Subject, Start Date, Start Time, End Date, End Time, All Day Event, Reminder On/Off, Reminder Date, Reminder Time, Meeting Organizer, Description, Location, Private
Je moet in ieder geval de koppen Subject, Start Date en Start Time hebben. De andere koppen zijn optioneel.

BV.
Subject, Start Date, Start Time, End Date, End Time, Private, All Day Event, Location
meeting ABC, 7/26/2016, 7:00 PM, 7/26/2016, 9:00 PM, FALSE,, vergaderzaal A’dam
training DEF, 7/27/2016, 12:00 PM,7/27/2016, , TRUE, FALSE,

Dit geeft als resultaat:

en

Zorg ervoor dat alle cellen in de kolommen Start Time, End Time, en Reminder Time de goede opmaak hebben:
Lettertype – Getal – Aangepast – u:mm AM/PM (= uur:minuten AM of PM)

Alle cellen in de kolommen Start Date, End Date, Reminder Date:
Lettertype – Getal – Aangepast – m/d/jjjj (= maand/dag/jaar)
Dit is nodig, anders herkent Google je bestandsindeling niet.

Bij Private, All Day Event, Reminder On/Off kan gekozen worden tussen True of False. Als je niets invult, kiest Google voor de standaardinstellingen voor deze afspraken.

Als je klaar bent, kies dan voor Bestand – Opslaan als – CSV (gescheiden door scheidingsteken).
Bevestig dat alleen dit werkblad opgeslagen wordt.
Daarna Ja voor behouden werkmap in deze indeling.

Als in het CSV bestand het scheidingsteken een , (komma) is, dan kan de agenda ingelezen worden.

  • Is dit niet het geval, dan
    in Excel: Bestand – Opties – Geavanceerd – vinkje weghalen voor ‘Scheidingstekens van systeem gebruiken
  • Als hierna het scheidingsteken nog steeds een ; is, dan
    Windows – Configuratiescherm – Klok, taal en land/regio – Land/regio – De notatie voor datum, tijd of getallen wijzigen – tabblad Notaties: Meer instellingen – Lijstscheidingsteken wijzigen naar , (komma) – OK – OK
 

importeren in Google agenda

Open je Google Agenda, kies bij Mijn agenda’s voor Instellingen. Je komt nu in een ander scherm.
Kies voor Agenda importeren.
In het pop-upscherm haal je het CSVbestand op en geef je aan in welke agenda de gegevens geïmporteerd moeten worden.

On a separate note, if you upload the same CSV file twice, Google will create duplicates of your events rather than replace the first set. There’s no “Remove duplicates” button either – you have to do it manually, or erase the whole calendar and start again.

kijk ook op ...
LinkedIn pinterest

categorieën






tegen spam: DNRYV invoeren