Good Day
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
Display More
Thanks so much...Jimmy