VBA Code:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="password1"
Dim rw As Long
Dim sh As Worksheet
Set sh = Sheet1
rw = 3
If sh.Range("F" & rw).Value = "" Then
sh.Range("F" & rw).Value = Time()
Worksheets("Dashboard").Range("C" & rw, "Q" & rw).Interior.ColorIndex = 6
Range("C" & rw) = "Call Pending"
Else
If sh.Range("G" & rw).Value = "" Then
sh.Range("G" & rw).Value = Time()
Worksheets("Dashboard").Range("C" & rw, "Q" & rw).Interior.ColorIndex = 43
Range("C" & rw) = "Dispatched"
Else
If sh.Range("H" & rw).Value = "" Then
sh.Range("H" & rw).Value = Time()
Worksheets("Dashboard").Range("C" & rw, "Q" & rw).Interior.ColorIndex = 4
Range("C" & rw) = "Responding"
Else
If sh.Range("I" & rw).Value = "" Then
sh.Range("I" & rw).Value = Time()
Worksheets("Dashboard").Range("C" & rw, "Q" & rw).Interior.ColorIndex = 3
Range("C" & rw) = "On Scene"
Else
If sh.Range("J" & rw).Value = "" Then
sh.Range("J" & rw).Value = Time()
Worksheets("Dashboard").Range("C" & rw, "Q" & rw).Interior.ColorIndex = 0
Range("C" & rw) = Date
Else
Dim pwd As String
Dim x As CommandButton
Dim rg As Range
pwd = InputBox("Please input the password", "Input Password")
If pwd = "" Then Exit Sub
If pwd = "Reset" Then
ActiveSheet.Unprotect Password:="password1"
Range("C" & rw, "J" & rw).Select
Selection.ClearContents
Range("L" & rw, "Q" & rw).Select
Selection.ClearContents
Range("D" & rw).Activate
ActiveSheet.Protect Password:="password1"
Else
MsgBox "Incorrect password"
End If
Exit Sub
End If
End If
End If
End If
End If
ActiveSheet.Protect Password:="password1"
End Sub