20. juni 2002 - 14:10Der er
10 kommentarer og 1 løsning
Undertrykkelse af dialogbokse
Hvordan undertrykker jeg følgende dialogbokse:
1. Når jeg fra en makro åbner en projektmappe som har kæder til en lukket projektmappe, spørger Excel, om jeg vil opdatere kæder. Det vil jeg - hvordan koder jeg det?
2. Når jeg fra en makro gemmer en projektmappe, som findes i forvejen, spørger Excel, om jeg vil overskrive. Det vil jeg - hvordan koder jeg det?
3. Jeg vil gerne slutte makroen af med en skærmmeddelelse til brugeren. Hvordan koder jeg det? (Vi kan jo sige at der skal stå "farvel og tak")
4. Når jeg åbner en fil med en makro af typen sub auto_open(), spørger Excel, om jeg vil åbne med eller uden makroer. Kan denne boks undertrykkes (jeg vil gerne svare "med makroer") ?
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
1. Workbook.Open Filename:="test.xls", updatelinks:=3 2. skriv DisplayAlerts = False før og DisplayAlerts = True efter 3. Msgbox("Farvel og tak",0) 4. I enuen funktioner/makroer findes der et punkt med Sikkerhed. Her sættes niveauet til lavt.
ad 2) Den spørger alligevel ad 4) I excel 97 har jeg under Funktioner-Indstillinger fanebladet Standard, hvor jeg kan fjerne fluebenet ved "Aktivér beskyttelse mod virus i makroer" - jeg går ud fra, at det er denne funktion, som bare er flyttet hen under Makroer. Men den virker på programniveau, dvs. på alle excel-filer. Kan man gøre det på fil-niveau?
Pointene er på vej. Det er måske for fedtet, når jeg nu allerede har fået fire svar for pengene, men i umiddelbar tilknytning til det sidste har jeg et femte: Jeg vil gerne gemme mappen med kodeord, og har forsøgt to modeller:
Den siger det alligevel - bortset fra, at den korrekte ordlyd er "Kørselsfejl 9, indekset er uden for området" (Hvad er indekset hhv. området i denne sammenhæng?)
prøv lige det her. Jeg tror du magler at fortælle hvor filen skal ligge sig og hvad den skal hedde. Workbooks("Mappe1") er bare navnet på arbejdsmappen
Dim kodeord As String kodeord = InputBox("Opgiv kode") Workbooks("mappe1").SaveAs ("c:\mappe1.xls"), password:=kodeord
I samme øjeblik fik jeg det selv til at virke - uden endnu helt at forstå hvorfor... Det var faktisk dit første bud på sagen, som var nærmest, dvs først at skifte til det dir, hvor filen skal gemmes, og derefter "gemme" (angive kodeord) - men i stedet for at angive filens navn bruger jeg objektet ActiveWorkbook, så makker den ret. Jeg takker og bukker.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
