1-amaliy mashg’ulot mavzu: Avtomatlashtirilgan axborot tizimlarida axborotlarni himoyalash Ishning maqsadi

---

1-AMALIY MASHG’ULOT Mavzu: Avtomatlashtirilgan axborot tizimlarida 
axborotlarni himoyalash 
 
Ishning maqsadi: 
1.1 MS WORD 2013 matn muharririda tayyorlangan hujjatlarni himoyalash texnologiyasini 
o‘rganish. 
1.2 MS WORD 2013 matn muharririda yozilgan hujjatlarni makroviruslardan himoyalashni 
o‘rganish.
2.1 Ms Excel 2013 jadval protcessorida tayerlangan hujjatlarni himoyalash texnologiyasini 
o‘rganish. 
2.2 Ms Excel 2013 jadval protcessorida tayerlangan jadvalning aloxida kataklariga himoya 
kuyish texnologiyasini o‘rganish.
Ishni bajarish tartibi. 
MS WORD uchun: 
1-qadam: MS WORD 2013 matn muharririda “JDPI” fayl yarating. 
2-qadam: Menyuning «Файл» bulimining «Сведения» bandi va so’ng «Зашифровать с 
использованием пароля» punkti tanlanib parol kiriting. 
3-qadam: Faylni qayta yuklash bilan qo’yilgan parolni tekshirib ko’ring. 
4-qadam: Menyuning «Рецензирование» bulimining «Ограничить редактирование» bandi va 
so’ng «Запись исправлений» punkti tanlanib parol kiriting. 

---

5- qadam: Faylni qayta yuklab va o’zgartirish kiritib, qo’yilgan parolni tekshirib ko‘ring. 
6-qadam: Makroslardan himoyalashning har xil darajalarini o‘rnating. 
MS EXCEL uchun: 
1-qadam: Ms Excel 2013 jadval protsessorida fayl yarating. 
2-qadam: Menyuning «Файл» bulimining «Сведения» bandi va so’ng «Зашифровать с 
использованием пароля» punkti tanlanib parol kiriting. 
3-qadam: Faylni qayta yuklash bilan qo’yilgan parolni tekshirib ko’ring. 

---

4-qadam: Menyuning «Рецензирование» bulimining «Защитить лист» bandi va so’ng 
«выделение заблокированных ячеек» punkti tanlanib parol kiriting. 
5-qadam: Faylni qayta yuklab va o’zgartirish kiritib, qo’yilgan parolni tekshirib ko’ring. 
6-qadam: Alohida kataklarga himoya qo’ying. 
Visual Basic (Alt+F11)- Excel dasturida shifrlash va deshifrlash 
'shifr 
Sub Encrypt() 
Dim Pass$, Key$ 
Pass = InputBox("kalit so'zni kiriting:") 
Key = WorksheetFunction.Rept(Pass, 100) 
For Each cell In ActiveSheet.UsedRange 
Out = "" 
Txt = cell.Formula 
For i = 1 To Len(Txt) 
Out = Out & Chr((Asc(Mid(Txt, i, 1)) + Asc(Mid(Key, i, 1))) Mod 256) 
Next i 
cell.Value = Out 
Next cell 
End Sub 

---

'deshifr 
Sub Decrypt() 
Dim Pass$, Key$ 
Pass = InputBox("kalit so'zni kiriting:") 
Key = WorksheetFunction.Rept(Pass, 100) 
For Each cell In ActiveSheet.UsedRange 
Out = "" 
Txt = cell.Value 
For i = 1 To Len(Txt) 
Out = Out & Chr((Asc(Mid(Txt, i, 1)) - Asc(Mid(Key, i, 1)) + 256) Mod 256) 
Next i 
cell.Formula = Out 
Next cell 
End Sub 
Hisobot mazmuni 

Ishning nom iva maqsadi.

Aniq vazifalarni bajarish natijalari.

Programmadan hisobotlar skrinshotlari.

Mavzu bo’yicha xulosalar.
Nazorat savollari 
1. Word matn muharririning hujjatlariga qanday viruslar ta`sir ko‘rsatadi? Shular haqida 
to‘liq ma`lumot bering. 
2. Word matn muharriri hujjatlarini faqat o‘qish uchun parol quyishni tushuntiring. 
3. Word matn muharriri hujjatlarini ochish uchun parol quyishni tushuntiring. 
4. Hujjatlarni makroslardan himoyalash qanday amalga oshiriladi? 
5. Ms Excel ning hujjatlariga qanday viruslar ta`sir ko‘rsatadi, shular haqida to‘liq 
ma`lumot bering. 
6. Ms Excel ning hujjatlarini faqat o‘qish uchun parol qo‘yishni tushuntiring. 
7. Ms Excel hujjatlarini ochish uchun parol qo‘yishni tushuntiring. 
8. Hujjatlarni shifr va deshifr himoyalash qanday amalga oshiriladi?