សេកមាស បន្ទាយមានជ័យ

អាស័យដ្ឋានៈ ទីតាំងទី​‌១ នៅទល់មុខសាលាសូភី ខាងជើងភ្លើងស្តុប៧០ម៉ែត្រ​ ក្រុងសិរីសោភ័ណ ខេត្តប.ជ ។

Tel: 012 89 52 53 / 098 353 555 | E-mail: Sekmeas_bmc@yahoo.com

សេកមាស សំរោង

អាស័យដ្ឋានៈ ទីតាំងទី​២​ នៅទល់មុខបឹងស្នោ ជាប់សាលាសំរោង ក្រុងសំរោង​ ខេត្តឧត្តរមានជ័យ ។

Tel: 012 700 599 / 088 8 001 001 | E-mail: Sekmeas_omc@yahoo.com

សេកមាស អន្លង់វែង

អាស័យដ្ឋានៈ ទីតាំងទី៣​ នៅទល់មុខវិទ្យាល័យអន្លង់វែង ផ្លូវទៅព្រះវិហារ ស្រុកអន្លង់វែង​ ខេត្តឧត្តរមានជ័យ ។

Tel: 012 433 588 / 088 474 5555 | E-mail: Sekmeas_len@yahoo.com

ម្លប់បៃតង និង​ ពិភពតែម

អាស័យដ្ឋានៈ ផ្លូវលេខ ៣ ពីការាស់សាំងសូគីមិច ប្រហែល100ម៉ែត្រ ក្រុងសិរីសោភ័ណ ខេត្តបន្ទាយមានជ័យ ។

Tel: 065 5 600 500 / 088 888 38 48 / 016 733 622 (world sticker)

Friday, October 18, 2013

How To Disable USB Storage Devices In Windows 8 / 7



How To Disable USB Storage Devices In Windows 8 / 7

The introduction of USB to the computing world could be such a huge technological marvel, it’s hard to fathom that the early adopters of the interface would’ve imagined that when they introduced it to the market. Yet today, we have everything running on USB – from speaker systems to input/output devices to rechargeable batteries and whatnot. So much so that the USB port has become a standard electrical supply for a lot of non-computing gadgets as well.
Despite the diversity of uses that a standard USB port has been put to by the masses, the most popular and widely-used employment of the Universal Serial Bus interface remains storage media. Everything from USB flash memory to external, portable hard drives, still accounts for the maximum usage of the USB port on a computer. That’s also not platform restricted, either – whether it be Linux, Windows, OS X or any other desktop platform, it will always cater to removable storage thumb drives.

The convenience of a thumb drive is undeniable, but it also remains a fact that they’re the most vast means of spreading malware and computer viruses these days (other than if you browse a lot of porn). While it may not be that big a concern for an individual user, imagine the same for a corporation or institution that runs public-access computers. Hence, for them, it would make more sense to block installation of USB storage devices altogether, so as to avoid getting into security snafus. Windows lets you do that pretty easily, and in this post, we’ll tell you how you can disable connection for USB removable media devices on your Windows based PC.
Please note that the process involves tweaking a certain element of the Windows Registry, so if you’re not comfortable venturing into that area, you might as well want to avoid this.
Step 1: Pull up the Run dialog box and launch the Registry Editor (regedit).

Step 2: In Registry Editor, navigate to the following value:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\UsbStor

Step 3: From the right-side pane, double-click Start and change the value to “4”. Make sure that the value type is Hexadecimal.

Step 4: Apply your changes and reboot the machine.
That’s it – any USB removable storage device that was configured on your machine, will now not work. Should you want to enable those back, change the value back to 3 and reboot the machine again. The process applies to both Windows 7 and Windows 8 operating systems.

Sunday, October 6, 2013

VBA: ទាយយកទិន្នន័យចុងក្រោយនៃតារាងក្នុង Excel

MS Excel: Get contents of last cell in a range that has data in Excel 2010/2007/2003/XP/2000/97

Question: In Microsoft Excel 2010/2007/2003/XP/2000/97, how do I make a cell display the contents of the last cell of a range that has data?
Answer: This is a bit tricky and the formula that you need to use will depend on the types of data that you have in the range.

Data range is formatted as text

If your range contains only text values, you could use the following formula:
=INDEX(range,MATCH(REPT("z",255),range))
where range is the range that you wish to check
For example, if you wanted to find the last text value in column A, you would use the following formula:
=INDEX(A:A,MATCH(REPT("z",255),A:A))
For example, if you wanted to find the last text value in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MATCH(REPT("z",255),C2:C10))

Data range is formatted as numeric

If your range contains only numbers, you could use the following formula:
=INDEX(range,MATCH(9.99999999999999E+307,range))
where range is the range that you wish to check
For example, if you wanted to find the last numeric value in column A, you would use the following formula:
=INDEX(A:A,MATCH(9.99999999999999E+307,A:A))
For example, if you wanted to find the last numeric value in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MATCH(9.99999999999999E+307,C2:C10))

Data range contains both text and numeric

If your range contains both text and numeric values (ie: there must be at least one text and one numeric value in your range) and you want to find the last value, you could use the following formula:
=INDEX(range,MAX(MATCH(9.99999999999999E+307,range),MATCH(REPT("z",255),range)))
where range if the range that you wish to check
For example, if you wanted to find the last value (either text or numeric) in column A, you would use the following formula:
=INDEX(A:A,MAX(MATCH(9.99999999999999E+307,A:A),MATCH(REPT("z",255),A:A)))
For example, if you wanted to find the last value (either text or numeric) in range C2:C10, you would use the following formula:
=INDEX(C2:C10,MAX(MATCH(9.99999999999999E+307,C2:C10),MATCH(REPT("z",255),C2:C10)))

VBA: បញ្ចូលទិន្នន័យពីតារាងមួយទៅតារាងមួយ

Private Sub Cmdadd_Click()
On Error Resume Next
Dim sht As Worksheet
Dim rdata
Application.ScreenUpdating = False
If MsgBox("Save date to Mater Date" & " " & Sheet2.Range("").Value, vbYesNo) = vbYes Then
Sheet2.PrintOut
Set rdata = Sheet3.Cells(65536, 1).End(xlUp).Offset(1, 0)
With rdata

.Offset(0, 4) = Sheet2.Range("C7").Value 'Code Vendor
.Offset(0, 5) = Sheet2.Range("I7").Value 'Code Department
.Offset(0, 6) = Sheet2.Range("I8").Value 'Code Outlet
.Offset(0, 7) = Sheet2.Range("I9").Value 'Code Date Required
.Offset(0, 8) = Sheet2.Range("B12").Value 'Code Date Requesed

End With
Worksheets("sheet3").Save
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
Exit Sub
End If
End Sub

VBA: Call ប្រើសម្រាប់ហៅ Macro ឲ្យដំណើរការ

Sub CmdOpen_Click()

Call OpenSheet

End Sub


  • OpenSheet ជាឈ្មោះ Marco ដែលត្រូវដំណើរការពេល Marco CmdOpen_Click

VBA: ដំណើរការកូដពេលបើកឯកសារ Excel

Private Sub Workbook_Open()

Run "GetData"

End Sub


  • GetData ជាឈ្មោះ Macro ដែលដំណើរការពេលបើកឯកសារ

VBA: ចម្លងទិន្នន័យពីឯកសារ Excel ដែលមិនដំណើរការដាក់ក្នុងឯកសារថ្មីមួយទៀត


Sub GetDataFromClosedFille()
Dim mydata As String
'data location & range to copy
mydata = "='D:\Inventory\[Jan.xlsm]Monthly'!$A$1:$R$144" '<< change as required

'link to worksheet
With ThisWorkbook.Worksheets("Jan").Range("A1:R144") '<< change as required
.Formula = mydata

'convert formula to text
.Value = .Value
End With
End Sub
  • D:\Inventory\ ទីតាំងទុកឯកសារ
  • [Jan.xlsm] ឈ្មោះឯកសារត្រូវដាក់ក្នុង [...]
  • Monthly ឈ្មោះ Sheet 
  • $A$1:$R$144 ទីតាំង Cell ក្នុង sheet ខាងលើ
  • Jan ជាឈ្មោះ sheet ក្នុង Workbook ថ្មី ដែលត្រូវ Copy ពី sheet Monthly នៃ Workbook Jan
  • A1:R144 ទីតាំង Cell ក្នុង sheet Jan ដែលត្រូវ Copy ពី $A$1:$R$144 នៃ sheet Monthly

Tuesday, October 1, 2013

របៀបបង្កើតឈ្មោះ និងលេខសម្ងាត់ ដើម្បីប្រើប្រាស ឯកសារ Excel


បើកឯកសារ Excel របស់យើង រួចបង្កើត Sheet ចំនួន ៣ ដូចខាងក្រោម

1- worksheet មានឈ្មោះថា Users សម្រាប់កំណត់ ឈ្មោះ និងលេខសម្ងាត់របស់អ្នកប្រើប្រាស់


2- worksheet មានឈ្មោះថា login សម្រាប់បើកផ្ទាំងចូលប្រើប្រាស់


3- worksheet មានឈ្មោះថា Macros Disabled សម្រាប់ណែនាំពេលកម្មវិធីមិនដំណើរការ Macro



បន្ទាប់មកចុច Alt + F11 ដើម្បីបើក Visual Basic Editor


ចុចលើ ThisWorkbook រួច Copy កូដ ខាងក្រោមដូចចូល

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i   As Integer
Sheets("Macros Disabled").Visible = xlSheetVisible
For i = 1 To Worksheets.Count
    If Sheets(i).Name <> "Macros Disabled" Then
        On Error Resume Next
        Sheets(i).Visible = xlVeryHidden
    End If
Next
On Error GoTo 0
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Sheets("Login").Visible = xlSheetVisible
Sheets("Macros Disabled").Visible = xlSheetVeryHidden
Sheets("Users").Visible = xlSheetVeryHidden
UserForm1.Show
End Sub

និងចុច Insert ហើយយក Module ហើយ Copy កូដ (ដូចរូបខាងក្រោម) ដើម្បីដំណើរការលើប៊ូតុង Click me to Log In

Code:

Sub CmdOpenFrom_Click()
    UserForm1.Show
End Sub

បន្ទាប់ទាញយកទំរង់ Form ពីរ UserForm1.frm និង UserForm1.frx
រូចយកទៅ Import នៅក្នុង Visual Basic Editor

ដោយចុច File > Import File > រួចស្វែរកឯកសារ UserForm1.frm ដែលទាញយកខាងលើរួច ចុច Open ជាការស្រេច

ចំណាំៈ ចំពោះ Worksheet ដែលមានឈ្មោះ Users

UserID : វាយឈ្មោះអ្នកប្រើ
Password : វាយលេខសម្ងាត់
Users : ជា Worksheet ដែលឲ្យបង្ហាញដែលចំពោះ Admin ដែលអាចធ្វើការផ្លាស់ប្តូរឈ្មោះ និងលេខសម្ងាត់

ចំពោះ Sheet1 ដល់ Sheet4 ជាឈ្មោះ Worksheet របស់់យើង ដែលក្នុងឧទាហរណ៍នេះគឺមានតែ ៤ Sheet ទេ បើសិនជាយើងមានច្រើនយើងអាចវាយបន្ត ឬប្តូរឈ្មោះវាចេញ ករណ៍ មិនមានឈ្មោះដូចគ្នា 

ចំពោះអ្នកប្រើប្រាស់អាចប្រើ Sheet ណាមួយមានលុះត្រាតែ ដោយ វាយអក្សរ A ឬ a 
ឬក៏មិនចង់ឲ្យប្រើដោយ វាយអក្សរ NA ឬ n/a



ប្រើប្រាស់កុំព្យូទ័រពីចម្ងាយជាមួយ Team Viewer



This software allows you to remotely control any PC anywhere on the Internet
Share your screen has never been easier: With TeamViewer you can connect to the computer of a partner anywhere on the Internet. TeamViewer also works in the other direction: Show your own computer to a partner over the Internet and illustrate your own developed software, presentations or solutions.
Remote Control without Installation
With TeamViewer you can remotely control any PC anywhere on the Internet. No installation required, just run the application on both sides and connect ? even through tight firewalls.
Remote presentation of products, solutions and services

The second TeamViewer mode allows you to present your desktop to a partner. Show your demos, products and presentations over the Internet within seconds ? live from your screen.

Note For Windows 8 :-

TeamViewer Touch

Discover a new kind of remote control in Windows 8. The new TeamViewer Touch application is now available for download Windows 8 Store.
Latest generation multi-touch gestures and enhanced support for Windows 8
Run Windows 8 special commands (eg., Charms Bar Windows 8) on a remote computer directly through the toolbar of the remote control window. From a touch screen to another, you will discover how simple it is to use TeamViewer on Windows 8 with the help of latest generation multi-touch gestures.

ការពារឯកសារជាមួយ Folder Guard



Folder Guard is a powerful computer security program that you can use to control access to files, folders, and other Windows resources. You can use Folder Guard to lock your personal files and folders with passwords, to stop other users from peeking into your records. You can even completely hide your private folders from virtually all applications, and such folders would remain invisible until you enter a valid password. You can also protect sensitive system files from modification or destruction, disable access to the removable drives, restrict access to Control Panel, and more.

You can protect with password virtually any folder, allowing only authorized users to open the protected files or folders. You can password-protect an unlimited number of folders, each with its own password, or you can use the Master Password of Folder Guard to unprotect them all at once.

Why choose Folder Guard?

Folder Guard can hide your personal folders from other users
You can set up Folder Guard to hide your private folders (or make them appear empty). The folder would be hidden from virtually any program, including Windows Explorer, Office, MS-DOS programs, etc.

Folder Guard can password-protect and restrict access to file folders
You can password-protect any document folder to prevent access to your personal files without knowing the password. You can set up Folder Guard to allow only certain users to change the computer settings with Control Panel, while denying that to other users.

Folder Guard can control access to programs and files
You can prevent other users (even the administrators) from using the system tools that can mess up your Windows installation, while allow such use for yourself or someone who knows the Master password. You can also designate the backup programs as the trusted ones, allowing them to backup your protected files in the background without asking you for the password every time.

Folder Guard can lock access to the USB, CD-ROM and other removable drives
You can configure Folder Guard to allow or deny access to the removable drives, restricting the user's ability to run or install unauthorized programs on your computer.

Home Page - http://www.winability.com/

Pulpit rock Pulpit rock Pulpit rock Pulpit rock