暗淡？y，？arrive）
設置？arr？=?表單(“權限管理”)。範圍(" A1 ")。當前區域。
為了什麽？y？=?2?去哪？UBound(arr，2)
工作表(arr(1，y))。可見？=?2
然後
結束？潛水艇
私人？Sub？Workbook_Open()
開？錯誤？簡歷？然後
暗淡？x，？y，？sr，？arrive）
sr？=?申請。InputBox("請輸入密碼:"，？“著陸”)
設置？arr？=?表單(“權限管理”)。範圍(" A1 ")。當前區域。
為了什麽？x？=?2?去哪？欠奉
如果？瓦爾(sr)？=?arr(x，？1)?然後
為了什麽？y？=?2?去哪？UBound(arr，2)
如果？arr(x，？y)？=?1?然後
工作表(arr(1，y))。可見？=?-1
工作表(arr(1，y))。使活動
結束？如果
然後
結束？如果
然後
結束？潛水艇
引號使用雙引號。壹般來說是負值的變量，類型是Range。應該使用set。