I'm almost finished creating an app designed for computers. What is the best way to code it, so that the file requires a password to open the workbook. (in workbook open event?) if you can please provide the code, I'd appreciate it. I'm password protecting my macros, so that the code is not available to the purchaser. Whatever you suggest must not interfere with this.
I also need to include code, to disable the ability to copy the program and distribute it to others. This app is going to be extremely cheap. (I'll be inserting ads (Google Adsense) for a bit of extra income). In saying this, it may take off pretty good. Is there a way to set it up on my website, so the customer can download it without using my bandwidth?
I'm including my ThisWorkBook. Maybe you can advise me where to insert it to save me from plenty of trial & error...LOL
Option Explicit Private Sub Workbook_Open() With Sheets("Home Sheet").ComboBox1 .AddItem "Appoint. (change)" .AddItem "Appoint. (needed)" .AddItem "Bleeding" .AddItem "Broken Bone" .AddItem "Change Prescription" .AddItem "Chest Pain" .AddItem "Dizzy Spells" .AddItem "Getting Better" .AddItem "Getting Worse" .AddItem "Headache" .AddItem "Pain" .AddItem "Pain(Chest)" .AddItem "Prescription" .AddItem "Vomitting" .AddItem "Other" End With With Sheets("Home Sheet").ComboBox2 .AddItem "Before B-fast" .AddItem "After B-fast" .AddItem "Before Lunch" .AddItem "After Lunch" .AddItem "Before Supper" .AddItem "After Supper" .AddItem "Bedtime" End With With Sheets("Default Sheet").ComboBox3 .AddItem "Choose Here" .AddItem "gmail" .AddItem "yahoo" .AddItem "outlook" End With Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Protect "Pamela491", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True Next ws End Sub
Thanks so much...Jimmy